home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs19.d81 / spectrum.sfx / 40 x 25 data (.txt) < prev    next >
Commodore BASIC  |  1992-09-01  |  201b  |  11 lines
  1. 7 DIM LK(1000)
  2. 8 FOR RT=1024TO2023:POKERT,160:NEXTRT
  3. 10 NM$="FILENAME"
  4. 12 OPEN 6,8,6,"0:"+NM$+",S,R"
  5. 14 FOR QA=55296 TO 56295
  6. 16 INPUT#6,LK(QA-55295):NEXTQA
  7. 17 CLOSE 6
  8. 18 FOR WE=55296TO56295
  9. 19 POKE WE,LK(WE-55295)
  10. 20 NEXT
  11.